home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / comm / irc / amirsay.lha / AmIRSay / Install_AmIRSay < prev    next >
Text File  |  2000-03-31  |  4KB  |  145 lines
  1. ; Script created by Bruce Steers bsteers@btinternet.com
  2.  
  3. (set ver "$VER: Install_AmIRSay 3.7 (31/03/00)")
  4.                        (set verN "3.7")
  5.  
  6. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  7. (set srcdir (pathonly @icon))
  8.  
  9. (welcome "\nWelcome to the Install_AmIRSay "verN" Script\nThis script will install all AmIRSay related files and offer to create a few handy ALIAS's")
  10.  
  11. (set @default-dest (expandpath "miami:/amirc"))
  12.  (set dst
  13.   (askdir
  14.   (default @default-dest)
  15.   (newpath @default-dest)
  16.   (prompt "\n\"AmIRC/\" dir ?\n Select AmIRC Program Dir")
  17.   (help "\n\nYOU MUST point the way to AmIRC\'s Drawer")
  18.   )
  19.  )
  20.  
  21. (if (not (exists (tackon dst "AmIRC")))
  22. (abort "Sorry but AmIRC did not exist\nin the drawer you chose ???\n\n YOU MUST point the way to AmIRC\'s Drawer")
  23. )
  24.  
  25. (complete 10)
  26.  
  27. (set @default-dest (expandpath dst))
  28.  
  29.   (copyfiles
  30.   (source "AmIRSayPrefs")
  31.   (dest @default-dest)
  32.   (prompt "Install AmIRSayPrefs to your "@default-dest" dir ?\n")
  33.   (help "")
  34.   (confirm)
  35.   (infos)
  36.   )
  37.  
  38.   (copyfiles
  39.   (source "rexx/AmIRSay.amirx")
  40.   (dest (tackon @default-dest "rexx/"))
  41.   (prompt "Install AmIRSay.amirx to your \"AmIRC/rexx\" dir ?")
  42.   (help "")
  43.   (confirm)
  44.   (infos)
  45.   )
  46.  
  47.   (copyfiles
  48.   (source "amirsay.readme")
  49.   (dest @default-dest)
  50.   (prompt "Install AmIRSay.readme to your \"AmIRC/\" dir ?")
  51.   (help "")
  52.   (confirm)
  53.   (infos)
  54.   )
  55.   (if (= @user-level 2)
  56.     ( (set guideDST (select (askchoice
  57.                         (prompt "Where do you want the Guide Installed ?")
  58.                         (choices @default-dest "Help:" "Help:English")
  59.                         (help "Choose 1 of the 3 destinations for the AmIRSay.guide\n\nInstalling guide will make the HELP key load the guide relevant to where the mouse is or what page is open in the GUI")
  60.                         (default 0)
  61.                         )
  62.                 @default-dest "Help:" "Help:English"
  63.                 )
  64.       )
  65.      (copyfiles
  66.      (source "AmIRSay.guide")
  67.      (dest guideDST)
  68.      (infos)
  69.      )
  70.     )
  71.    (
  72.     (copyfiles
  73.     (source "AmIRSay.guide")
  74.     (dest @default-dest)
  75.     (infos)
  76.     )
  77.    )
  78.   )
  79.  
  80.  
  81. (set lang
  82.     (askoptions
  83.         (prompt "Select Language catalogs to install\nEnglish is Built in.\n")
  84.         (help @askchoice-help)
  85.         (choices "Deutsch" "Français" "Dansk")
  86.         (default 0)
  87.     )
  88. )
  89.  
  90.  (if (or (= lang 1) (or (= lang 3) (or (= lang 5) (= lang 7))))
  91.   (
  92.   (set cata (tackon srcdir "catalogs/deutsch/"))
  93.     (copyfiles
  94.     (source cata)
  95.     (dest "LOCALE:Catalogs/deutsch/")
  96.     (all)
  97.     )
  98.   )
  99.  )
  100.  
  101.  
  102.  (if (or (= lang 2) (or (= lang 3) (or (= lang 6) (= lang 7))))
  103.   (
  104.   (set cata (tackon srcdir "catalogs/français/"))
  105.     (copyfiles
  106.     (source cata)
  107.     (dest "LOCALE:Catalogs/français/")
  108.     (all)
  109.     )
  110.   )
  111. )
  112.  
  113.  (if (or (= lang 4) (or (= lang 5) (or (= lang 6) (= lang 7))))
  114.   (
  115.   (set cata (tackon srcdir "catalogs/dansk/"))
  116.     (copyfiles
  117.     (source cata)
  118.     (dest "LOCALE:Catalogs/dansk/")
  119.     (all)
  120.     )
  121.   )
  122. )
  123.  
  124.  (set cfg (tackon @default-dest "Default.AmIRCfg"))
  125.  
  126.    (run "rx rexx/add2amirc.rexx "cfg""
  127.    (prompt "\nI can add some usefull aliases to your Default.AmIRCfg (Reccomended)\n"
  128. "/SAYS = Start AmIRSay        \n"
  129. "/SAYV = Get AmIRSay Version  \n"
  130. "/SAYN = Check for New Version\n"
  131. "/SAYG = load GUI             \n"
  132. "/SAYU = Update Preferences   \n"
  133. "/SAYQ = QUIT AmIRSay         \n"
  134. "/SAY? = Call Help            \n\n"
  135. "Also i will ask to backup Default.AmIRCfg .")
  136.    (help "")
  137.    (confirm AVERAGE)
  138.    )
  139.  
  140.  
  141. (complete 99)
  142. (set @default-dest (expandpath dst))
  143. (complete 100)
  144. (exit  "\n\n" @app-name " Installaton is now over.\n\nPlease Read the Docs to understand how to use AmIRSay\n\n()_\\\n() /")
  145.